home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue60 / System / MainForm.dfm < prev    next >
Encoding:
Text File  |  2000-06-28  |  1.8 KB  |  88 lines
  1. object Form1: TForm1
  2.   Left = 373
  3.   Top = 129
  4.   BorderStyle = bsDialog
  5.   Caption = 'FTP Browser Demo for ftp.microsoft.com'
  6.   ClientHeight = 416
  7.   ClientWidth = 550
  8.   Color = clBtnFace
  9.   Font.Charset = DEFAULT_CHARSET
  10.   Font.Color = clWindowText
  11.   Font.Height = -11
  12.   Font.Name = 'MS Sans Serif'
  13.   Font.Style = []
  14.   OldCreateOrder = False
  15.   Position = poScreenCenter
  16.   PixelsPerInch = 96
  17.   TextHeight = 13
  18.   object CurrentDir: TLabel
  19.     Left = 8
  20.     Top = 8
  21.     Width = 3
  22.     Height = 13
  23.   end
  24.   object FileList: TListView
  25.     Left = 8
  26.     Top = 32
  27.     Width = 441
  28.     Height = 305
  29.     Color = 8404992
  30.     Columns = <
  31.       item
  32.         Caption = 'FileName'
  33.         Width = 150
  34.       end
  35.       item
  36.         Caption = 'File Size'
  37.         Width = 200
  38.       end>
  39.     Font.Charset = DEFAULT_CHARSET
  40.     Font.Color = clYellow
  41.     Font.Height = -11
  42.     Font.Name = 'MS Sans Serif'
  43.     Font.Style = []
  44.     ParentFont = False
  45.     SortType = stData
  46.     TabOrder = 0
  47.     ViewStyle = vsReport
  48.     OnCompare = FileListCompare
  49.     OnDblClick = FileListDblClick
  50.   end
  51.   object GetFileListButton: TButton
  52.     Left = 464
  53.     Top = 40
  54.     Width = 75
  55.     Height = 25
  56.     Caption = 'Get File List'
  57.     TabOrder = 1
  58.     OnClick = GetFileListButtonClick
  59.   end
  60.   object Panel1: TPanel
  61.     Left = 0
  62.     Top = 344
  63.     Width = 550
  64.     Height = 72
  65.     Align = alBottom
  66.     BevelOuter = bvLowered
  67.     BorderWidth = 3
  68.     TabOrder = 2
  69.     object Status: TLabel
  70.       Left = 4
  71.       Top = 4
  72.       Width = 542
  73.       Height = 64
  74.       Align = alClient
  75.       AutoSize = False
  76.     end
  77.   end
  78.   object UpButton: TButton
  79.     Left = 464
  80.     Top = 72
  81.     Width = 75
  82.     Height = 25
  83.     Caption = 'Up'
  84.     TabOrder = 3
  85.     OnClick = UpButtonClick
  86.   end
  87. end
  88.